home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / VIELSTRA.D < prev    next >
Encoding:
Modula Definition  |  1991-05-05  |  1.2 KB  |  51 lines
  1.  
  2. DEFINITION MODULE Vielstrahlinterferenz;
  3.  
  4. (* 5.5.91 Gerd Castan
  5.  * nach Klein, Furtak: Optik, Kapitel 5.4: Vielstrahlinterferenz.
  6.  *
  7.  * Schreibweise:
  8.  *   H      : Übergangsmatrix;
  9.  *   L      : Ausbreitungsmatrix;
  10.  *   tau    : Transmissionskoeffizient;
  11.  *   rho    : Reflexionskoeffizient;
  12.  *   lambda0: Wellenlänge im Vakuum;
  13.  *   n      : Brechungsindex;
  14.  *   d      : Schichtdicke;
  15.  *)
  16.  
  17.  
  18. (* Grundlegende Datentypen und Mathematische Operationen: *)
  19.  
  20. TYPE Complex = RECORD
  21.                  Re: LONGREAL;
  22.                  Im: LONGREAL
  23.                END;
  24.      
  25.      Vector2C = ARRAY [0..1] OF Complex;
  26.      
  27.      Matrix2C = ARRAY [0..1] OF Vector2C;
  28.  
  29. CONST Zero = Complex { 0.0 , 0.0 };     (* ISO-Modula 2 *)
  30.       One  = Complex { 1.0 , 0.0 };
  31.  
  32. PROCEDURE MultMM2C (A,B: Matrix2C): Matrix2C;     (* ISO-Modula 2 *)
  33.  
  34. PROCEDURE MultMV2C (M: Matrix2C; V: Vector2C): Vector2C;
  35.  
  36.  
  37.  
  38. (* Berechnung der Einzelnen Matrizen aus den Stoffeigenschaften: *)
  39.  
  40. (* Übergangsmatrix H: *)
  41. PROCEDURE GetH (tau,rho: LONGREAL): Matrix2C;
  42.  
  43. (* Ausbreitungsmatrix L: *)
  44. PROCEDURE GetL (n,d,lamda0: LONGREAL): Matrix2C;
  45.  
  46.  
  47.  
  48.  
  49. END Vielstrahlinterferenz.
  50.  
  51.